home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / Unsupported Samples / CRC Cards / Source / UCard.p < prev    next >
Encoding:
Text File  |  1990-07-11  |  4.7 KB  |  121 lines  |  [TEXT/MPS ]
  1. Unit UCard;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.     UMacApp,
  7.     ToolUtils,
  8.     Resources,
  9.     Packages,
  10.     UPrinting,
  11.     UTEView,
  12.     UDialog,
  13.     UGridView,
  14.     UCRCCards,
  15.     UItem,
  16.     UDesignDocument,
  17.     UMyViews,
  18.     UMyCommands,
  19.     UTextHandler;
  20.  
  21.  
  22. TYPE
  23.     TCard = OBJECT(TObject)
  24.         fDocument:                    TDesignDocument;
  25.         fDesignView:                TDesignView;
  26.         fTextHandler:                TTextHandler;
  27.         fClassName:                    TItem;
  28.         fSuperClass:                TItem;
  29.         
  30.         fEditView:                     TEditView;
  31.         fSimpleCardView:        TSimpleView;
  32.         fLocation:                     VPoint;
  33.         
  34.         fFieldList:                    TMyList;
  35.         fMethodList:                TMyMethodList;
  36.         fCollaboratorList:    TMyList;
  37.         
  38.         FUNCTION TCard.GetDocument: TDesignDocument;
  39.         PROCEDURE TCard.SetDocument(theDocument: TDesignDocument);
  40.         FUNCTION TCard.GetDesignView: TDesignView;
  41.         PROCEDURE TCard.SetDesignView(theDesignView: TDesignView);
  42.         FUNCTION TCard.GetTextHandler: TTextHandler;
  43.         PROCEDURE TCard.SetTextHandler(theTextHandler: TTextHandler);
  44.         FUNCTION TCard.GetEditView: TEditView;
  45.         PROCEDURE TCard.SetEditView(theEditView: TEditView);
  46.         FUNCTION TCard.GetTheClass: TItem;
  47.         PROCEDURE TCard.SetTheClass(anItem: TItem);
  48.         FUNCTION TCard.GetTheSuperClass: TItem;
  49.         PROCEDURE TCard.SetTheSuperClass(anItem: TItem);
  50.         FUNCTION TCard.GetNumFields: ArrayIndex;
  51.         FUNCTION TCard.GetNumMethods: ArrayIndex;
  52.         FUNCTION TCard.GetNumCollaborators: ArrayIndex;
  53.         PROCEDURE TCard.ChangeClass(theName: str255);
  54.         PROCEDURE TCard.ChangeSuperClass(theName: str255);
  55.         PROCEDURE TCard.ChangeField(theFieldItem: TFieldItem; 
  56.                                                                 theName: Str255; theType: Str255);
  57.         PROCEDURE TCard.ChangeMethod(theMethodItem: TMethodItem;
  58.                                                                     theName: Str255; IsOverride: Boolean);
  59.         PROCEDURE TCard.ChangeCollaborator(theCollaboratorItem: TCollaboratorItem;
  60.                                                                                 theName: Str255);        
  61.         PROCEDURE TCard.CreateSimpleView(theDesignView: TDesignView; 
  62.                                                                         theDesignDoc: TDesignDocument);
  63.         PROCEDURE TCard.DeleteSimpleView;
  64.         PROCEDURE TCard.DeleteEditView;
  65.         FUNCTION TCard.GetSimpleView: TSimpleView;
  66.         PROCEDURE TCard.SetSimpleView(aSimpleView: TSimpleView);
  67.         FUNCTION TCard.GetLocation: VPoint;
  68.         PROCEDURE TCard.SetLocation(theLocation: VPoint);
  69.         
  70.         FUNCTION TCard.GetFields: TMyList;
  71.         PROCEDURE TCard.SetFields(aFieldList: TMyList);
  72.         FUNCTION TCard.GetMethods: TMyMethodList;
  73.         PROCEDURE TCard.SetMethods(aMethodList: TMyMethodList);
  74.         FUNCTION TCard.GetCollaborators: TMyList;
  75.         PROCEDURE TCard.SetCollaborators(aCollaboratorList: TMyList);
  76.         PROCEDURE TCard.AddCardToObjectLists(theCardToAdd: TCard);
  77.         PROCEDURE TCard.RemoveCardFromObjectLists(theCardToRemove: TCard);
  78.         PROCEDURE TCard.ChangeNameInObjectLists(theOldName, theNewName: Str255);
  79.         PROCEDURE TCard.ICard(theDesignDoc: TDesignDocument; theLocation: VPoint);
  80.         FUNCTION TCard.FieldPresent(theField: TFieldItem): boolean;
  81.         FUNCTION TCard.GetFieldItemAtIndex(theIndex: ArrayIndex): TFieldItem;
  82.         PROCEDURE TCard.AddFieldAtIndex(theField: TFieldItem; theIndex: ArrayIndex);
  83.         FUNCTION TCard.GetIndexOfField(theField: TFieldItem): ArrayIndex;
  84.         FUNCTION TCard.GetMethodItemAtIndex(theIndex: ArrayIndex): TMethodItem;
  85.         FUNCTION TCard.GetIndexOfMethod(theMethod: TMethodItem): ArrayIndex;
  86.         PROCEDURE TCard.AddMethodAtIndex(theMethod: TMethodItem; theIndex: ArrayIndex);
  87.         FUNCTION TCard.GetCollaboratorItemAtIndex(theIndex: ArrayIndex): TCollaboratorItem;
  88.         PROCEDURE TCard.AddCollaboratorAtIndex(theCollaborator: TCollaboratorItem; 
  89.                                                                                         theIndex: ArrayIndex);
  90.         FUNCTION TCard.GetIndexOfCollaborator(theCollaborator: TCollaboratorItem): ArrayIndex;
  91.         PROCEDURE TCard.AddField(theField: TFieldItem);
  92.         PROCEDURE TCard.AddMethod(theMethod: TMethodItem);
  93.         PROCEDURE TCard.AddCollaborator(theCollaborator: TCollaboratorItem);
  94.         PROCEDURE TCard.AddFieldsMethod;
  95.         PROCEDURE TCard.DeleteField(theField: TFieldItem);
  96.         PROCEDURE TCard.DeleteMethod(theMethod: TMethodItem);
  97.         PROCEDURE TCard.DeleteCollaborator(theCollaborator: TCollaboratorItem);
  98.         PROCEDURE TCard.WriteFieldInterface(theTEView: TMyTEView);
  99.         PROCEDURE TCard.WriteMethodInterface(theTEView: TMyTEView);
  100.         PROCEDURE TCard.WriteCollaboratorInterface(theTEView: TMyTEView);
  101.         PROCEDURE TCard.WriteFwdClassDecl(theTEView: TMyTEView);
  102.         PROCEDURE TCard.WriteInlineProcedures(theTEView: TMyTEView);
  103.         PROCEDURE TCard.WriteInterface(theTEView: TMyTEView);
  104.         PROCEDURE TCard.WriteImplementation(theTEView: TMyTEView);
  105.         PROCEDURE TCard.TranslateTheCard(TheOldLanguage, TheNewLanguage:Integer);
  106.         FUNCTION  TCard.ReturnBytes: LONGINT;
  107.         PROCEDURE TCard.ReadCard(aRefNum: INTEGER);
  108.         PROCEDURE TCard.WriteCard(aRefNum: INTEGER);
  109.         PROCEDURE TCard.Free; OVERRIDE;
  110.         PROCEDURE TCard.SetupFieldsMode;
  111.         PROCEDURE TCard.SetupMethodsMode;
  112.         PROCEDURE TCard.SetupCollaboratorsMode;
  113.         PROCEDURE TCard.Fields(PROCEDURE DoToField(
  114.                             fieldName: Str255; fieldAddr: Ptr; fieldType: INTEGER)); OVERRIDE;
  115.     END;
  116.  
  117. IMPLEMENTATION
  118.  
  119. {$I UCard.inc1.p}
  120.  
  121. END.